Notes/Domino 6 and 7 Forum : Store Form and e-Mail in LS

I have a simple LS program that reads an ASCII text file and produces a number of documents to be sent e-mail to Notes users....

It ceates the documents locally in the DB (which I plan to not do when finished) and fails to send the documents! "Invalid or Nonexistant Document" is the message on: Call doc.Send(True)

Also the form is NOT getting saved in the document.... HELP!
======================
Redim Infox(20) As String

Set session = New NotesSession
Set db = session.CurrentDatabase
fileNum% = Freefile()
counter% = 0
Open "c:\lotus\notes\data\FILE.txt" For Input As fileNum%
countRec% = 0
Do While Not Eof(fileNum%)
Line Input #fileNum%, InData$
counter% = counter% + 1
If Len(InData) > 100 Then
If counter% = 1 Then
Set doc = New NotesDocument(db) Call doc.ReplaceItemValue "Form",Left$(InData,3))
Call doc.ReplaceItemValue("SendTo","Special User/Server")
Call doc.ReplaceItemValue("From","Special User/Server")
Call doc.ReplaceItemValue("ReturnReceipt","0")
Infox(counter%-1) = Mid$(InData,56,114)
Call doc.ReplaceItemValue("Detail",Mid$(InData,56,114))
Else
Infox(counter%-1) = Mid$(InData,56,114)
End If
countRec% = countRec% + 1
Elseif Left$(InData,5) = "$$$$$" Then
Call doc.ReplaceItemValue("Detail",Infox)
Call doc.save(True, False) 'WORKS!
Call doc.Send(True, "Special User/Server") 'PROBLEM
Redim Infox(20)
countRec% = 0
counter% = 0
Else
countRec% = 0
End If
Loop
Close fileNum%